object Form1: TForm1 Left = 1 Top = 3 BorderStyle = bsDialog Caption = 'Novell Transport Layer Interface Component testing (Delphi Versi' + 'on)' ClientHeight = 450 ClientWidth = 630 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] PixelsPerInch = 96 OnCreate = FormCreate TextHeight = 16 object Label2: TLabel Left = 15 Top = 204 Width = 30 Height = 16 Caption = 'Port:' end object Label5: TLabel Left = 143 Top = 204 Width = 86 Height = 16 Caption = 'Data to send:' end object NovTLI1: TNovTLI Left = 560 Top = 72 Width = 32 Height = 32 Port = 0 OnDataAvailable = NovTLI1DataAvailable OnSessionClosed = NovTLI1SessionClosed OnSessionAvailable = NovTLI1SessionAvailable OnSessionConnected = NovTLI1SessionConnected end object Connect: TButton Left = 8 Top = 8 Width = 81 Height = 33 Hint = 'Connect to the '#39'listening'#39' server' Caption = 'Connect' ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = ConnectClick end object SendData: TButton Left = 96 Top = 8 Width = 89 Height = 33 Hint = 'Send data to the server' Caption = 'Send Data' ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = SendDataClick end object Listen: TButton Left = 192 Top = 8 Width = 73 Height = 33 Hint = 'Establish a server environment and listen for client requests' Caption = 'Listen' ParentShowHint = False ShowHint = True TabOrder = 5 OnClick = ListenClick end object Close: TButton Left = 272 Top = 8 Width = 65 Height = 33 Hint = 'Close the connection' Caption = 'Close' ParentShowHint = False ShowHint = True TabOrder = 6 OnClick = CloseClick end object Disconnect: TButton Left = 344 Top = 8 Width = 105 Height = 33 Hint = 'Send a disconnect request to the partner' Caption = 'Disconnect' ParentShowHint = False ShowHint = True TabOrder = 7 OnClick = DisconnectClick end object CancelListen: TButton Left = 456 Top = 8 Width = 105 Height = 33 Hint = 'Close the server connection and cancel client requests' Caption = 'Cancel Listen' ParentShowHint = False ShowHint = True TabOrder = 8 OnClick = CancelListenClick end object AddrOptions: TGroupBox Left = 8 Top = 56 Width = 177 Height = 129 Caption = 'Addressing Options' TabOrder = 9 object UseServerName: TRadioButton Left = 16 Top = 32 Width = 145 Height = 25 Caption = 'Use ServerName' ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = UseServerNameClick end object UsePhysicalAddr: TRadioButton Left = 16 Top = 72 Width = 153 Height = 25 Hint = 'Use the Physical addressing mechanisms instead of the ServerName' Caption = 'Use Physical Addr' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = UsePhysicalAddrClick end end object Port: TEdit Left = 63 Top = 200 Width = 65 Height = 25 ParentShowHint = False ShowHint = True TabOrder = 1 end object Edit1: TEdit Left = 239 Top = 200 Width = 377 Height = 25 Hint = 'Data to send to partner' MaxLength = 255 ParentShowHint = False ShowHint = True TabOrder = 2 Text = 'The Quick Brown Fox Jumped Over The Lazy Dog 0123456789 Times' end object Memo1: TMemo Left = 16 Top = 240 Width = 601 Height = 201 Hint = 'Output area' ParentShowHint = False ShowHint = True TabOrder = 10 end object NetNode: TGroupBox Left = 200 Top = 128 Width = 417 Height = 57 Caption = 'Physical Addressing' TabOrder = 11 object LabelNet: TLabel Left = 8 Top = 24 Width = 26 Height = 16 Caption = 'Net:' end object LabelNode: TLabel Left = 200 Top = 24 Width = 38 Height = 16 Caption = 'Node:' end object AddrNet: TEdit Left = 40 Top = 20 Width = 145 Height = 25 MaxLength = 8 ParentShowHint = False ShowHint = True TabOrder = 0 end object AddrNode: TEdit Left = 248 Top = 20 Width = 153 Height = 25 MaxLength = 12 ParentShowHint = False ShowHint = True TabOrder = 1 end end object GroupBox1: TGroupBox Left = 200 Top = 56 Width = 417 Height = 65 Caption = 'Service Advertising Protocol (SAP)' TabOrder = 12 object LabelServerName: TLabel Left = 48 Top = 29 Width = 89 Height = 16 Caption = 'Server Name:' end object ServerName: TEdit Left = 144 Top = 25 Width = 153 Height = 25 MaxLength = 8 ParentShowHint = False ShowHint = True TabOrder = 0 end end object HelpButton: TButton Left = 568 Top = 8 Width = 49 Height = 33 Caption = 'Help' TabOrder = 13 OnClick = HelpButtonClick end end